Produção, Área e Produtividade das Principais Culturas no Cerrado (2010–2022)

Date: August 6, 2025

Agricultura no Cerrado: produtividade e expansão territorial

O Cerrado é o coração da agricultura brasileira. As culturas de soja, milho, cana-de-açúcar e algodão concentram a maior parte da área cultivada no bioma. Este post reúne três perspectivas analíticas para o período de 2010 a 2022:

Valor da produção agrícola
Área plantada total
Produtividade média por hectare

1. Valor da Produção Agrícola

A soja lidera com ampla vantagem, ultrapassando R$ 250 bilhões em 2022.
O milho segue em segundo, com forte crescimento recente, especialmente após 2020.
A cana-de-açúcar mantém crescimento moderado.
O algodão é menor em volume, mas com crescimento consistente.

2. Área Plantada por Cultura

O crescimento sustentado da área total plantada, puxado principalmente pela soja.
A expansão da soja é a principal responsável pela pressão sobre o uso da terra.
O milho, plantado em rotação ou como safrinha, também ganha área de forma importante.
A área da cana-de-açúcar permanece estável, indicando maturidade produtiva.
O algodão cresce de forma mais lenta, mas com ganhos de produtividade relevantes.

3. Produtividade Média (R$/Hectare)

Produtividade, calculada como valor da produção por hectare:

O algodão tem os maiores ganhos relativos de produtividade, ultrapassando R$ 20 mil/ha.
A soja apresenta crescimento expressivo após 2020, refletindo tanto aumento de preços quanto eficiência.
A cana-de-açúcar mantém produtividade estável, com leve tendência de alta.
O milho registra saltos relevantes após 2020, com produtividades médias próximas de R$ 30 mil/ha.

Code

dados_receita_media <- dados_agricolas_2010_2023 %>%
  filter(D3N %in% c("Área plantada", "Valor da produção")) %>%
  group_by(D2N, D4N, D3N) %>%
  summarise(valor_total = sum(V, na.rm = TRUE), .groups = "drop") %>%
  pivot_wider(names_from = D3N, values_from = valor_total) %>%
  mutate(receita_media = (`Valor da produção` / `Área plantada`)) %>%  # Ajuste da escala
  filter(!is.na(receita_media)) %>%
  mutate(D2N = as.numeric(D2N))  # Converter anos para numérico

# Reutilizar a função para gráficos
grafico_cultura <- function(cultura, cor, limites, intervalos) {
  ggplot(filter(dados_receita_media, D4N == cultura),
         aes(x = D2N, y = receita_media)) +
    geom_line(color = cor, size = 1) +
    geom_point(color = cor, size = 2) +
    scale_x_continuous(breaks = seq(2010, 2023, 1)) +
    scale_y_continuous(
      limits = limites,
      breaks = seq(limites[1], limites[2], by = intervalos),
      labels = scales::comma_format(big.mark = ".", decimal.mark = ",")
    ) +
    labs(
      title = cultura,
      x = "Ano",
      y = "Receita Média (mil reais/ha)"
    ) +
    theme_minimal() +
    theme(
      axis.text.x = element_text(angle = 45, hjust = 1),
      plot.title = element_text(face = "bold", hjust = 0.5)
    )
}

# Definir limites para cada cultura
limites_soja <- c(0, 9)
limites_milho <- c(0, 7)
limites_algodao <- c(0, 20)
limites_cana <- c(0, 12)

# Gerar gráficos
grafico_soja <- grafico_cultura("Soja (em grão)", "darkgreen", limites_soja, 1)
grafico_milho <- grafico_cultura("Milho (em grão)", "orange", limites_milho, 1)
grafico_algodao <- grafico_cultura("Algodão herbáceo (em caroço)", "blue", limites_algodao, 5)
grafico_cana <- grafico_cultura("Cana-de-açúcar", "red", limites_cana, 2)

# Combinar os gráficos
grafico_combinado <- grafico_soja + grafico_milho + grafico_algodao + grafico_cana +
  plot_layout(ncol = 2) +
  plot_annotation(
    theme = theme(
      plot.title = element_text(size = 18, face = "bold", hjust = 0.5),
      plot.subtitle = element_text(size = 12, hjust = 0.5)
    )
  )


# Salvar em alta resolução
ggsave(
  filename = "mapa_bolhas/receita_media_culturas_corrigida.png",
  plot = grafico_combinado,
  width = 12, height = 8, units = "in",
  dpi = 300,
  bg = "white"
)

Este post faz parte da série sobre uso da terra e dinâmica agrícola no Cerrado. Para outros conteúdos, acesse todos os posts.